           # Calculates recursively the factorial of 10
           ASSIGN $fact, &func1
           CALLR fact, result, 10
           CALL print, result

           # fact function
func1:     ACCEPT n
           CALLR $__op_equal, @1, n, 0
           JUMPIF @1, &if1
else1:     CALLR $__op_minus, @2, n, 1
           CALLR fact, @3, @2
           CALLR $__op_mult, @4, @3, n
           RET @4
if1:       RET 1

